query='SELECT ?film ?filmLabel 
WHERE {
  ?film wdt:P31 wd:Q11424.
  SERVICE wikibase:label {
    bd:serviceParam wikibase:language "[AUTO_LANGUAGE],en".
  }
}'

result=purrr::quietly(WikidataQueryServiceR::query_wikidata)(query)
tib=result$r

tib=spq_init() %>% 
  spq_add("?film wdt:P31 wd:Q11424", label="?film") %>% 
  spq_head(n=10) %>% 
  send()

query='SELECT ?film ?filmLabel WHERE {
  ?film wdt:P31 wd:Q11424.
  SERVICE wikibase:label {
    bd:serviceParam wikibase:language "[AUTO_LANGUAGE],en".
  }
}
LIMIT 10'
result=WikidataQueryServiceR::query_wikidata(query)
tib=result$r

tib=spq_init() %>% 
  spq_add("?film wdt:P31wd:Q11424", label="?film") %>% 
  spq_head(n=10) %>% 
  send()

 tib=spq_init() %>%                                      # Initialise requête puis
  spq_add("?film wdt:P31 wd:Q11424", label="?film") %>%  # Ajoute triplet "?film est une instance de film" puis
  spq_add("?film wdt:P840 ?loc", label="?loc") %>%       # Ajoute triplet "?film a pour localisation narrative ?loc (à étiqueter) puis
  spq_language("en,fr") %>%                              # Affiche les étiquettes en anglais, ou à défaut en français puis
  spq_head(n=10) %>%                                     # Sélectionne les 10 premiers résultats puis
  send()                                                 # Envoie la requête
knitr::kable(tib)

 tib=spq_init() %>%                                       # Initialise requête puis
  spq_add("?film wdt:P31 wd:Q11424", label="?film") %>%   # Ajoute triplet "?film est une instance de film" puis
  spq_add("?film wdt:P840 ?loc", label="?loc") %>%        # Ajoute triplet "?film a pour localisation narrative ?loc (à étiqueter) puis
  spq_summarise(c("?n_films"="COUNT(?film)")) %>%         # Résume en comptant le nombre de films puis
  send()                                                  # Envoie la requête
knitr::kable(tib)                                         # Montre la table

lf_1=spq_init() %>%                                         # Initialise requête puis
  spq_add("?film wdt:P31 wd:Q11424", label="?film") %>%     # Ajoute triplet "?film est une instance de film" puis
  spq_add("?film wdt:P840 ?loc", label="?loc") %>%          # Ajoute triplet "?film a pour localisation narrative ?loc (à étiqueter) puis
  spq_add("?loc wdt:P625 ?coords",                          # Ajoute triplet "?loc a pour coordonnées spatiales ?coords" 
          within_box=list(southwest=c(3,43),                #         ... restreins pour que les coordonnées soient comprises
                          northeast=c(7,47))) %>%           #         ... dans un cadre défini par ces deux points (S-O et N-E) puis
  spq_language("fr") %>%                                    # Etiquette de préférence en français puis    
  send()                                                    # Envoie la requête

knitr::kable(lf_1 %>% head())

lf_2=spq_init() %>%                                       # Initialise requête puis
  spq_add("?film wdt:P31 wd:Q11424", label="?film") %>%   # Ajoute triplet "?film est une instance de film" puis
  spq_add("?film wdt:P840 ?loc", label="?loc") %>%        # Ajoute triplet "?film a pour localisation narrative ?loc (à étiqueter) puis
  spq_add("?loc wdt:P625 ?coords",                        # Ajoute triplet "?loc a pour coordonnées spatiales ?coords"
          within_box=list(southwest=c(3,43),              #           ... restreins pour que les coordonnées soient comprises
                          northeast=c(7,47)))%>%          #           ... dans un cadre défini par ces deux points (S-O et N-E) puis
  spq_add("?film wdt:P18 ?image", required=FALSE) %>%     # Ajoute triplet "?film a pour image d'illustration ?image" puis
  spq_add("?film wdt:P921 ?subject",                      # Ajoute triplet "?film a pour sujet ?subject" (info optionnelle)
          label="?subject", required=FALSE) %>%           #           ... étiquette ?subject puis
  spq_add("?film wdt:P577 ?date") %>%                     # Ajoute triplet "?film a été publié à la date ?date puis
  spq_mutate(c("?year"="year(?date)")) %>%                # Ajoute une variable ?year qui corresond à l'année de ?date puis
  spq_select("-?date") %>%                                # Enlève la variable ?date puis
  spq_language("fr,en") %>%                               # Etiquette (de préférence en français, à défaut en anglais) puis
  send()                                                  # Envoie la requête

knitr::kable(lf_2 %>% head())

lf_c=lf_2 %>%                                                 # Considère lf_2 puis
  select(film,ends_with("Label"),coords,image,year) %>%       # Sélectionne ces variables (dont "....Label") puis
  group_by(film,coords,image,locLabel,filmLabel) %>%          # Groupe par ces variables puis 
  summarise(subjectLabel=stringr::str_c(unique(subjectLabel), # Résume par groupe: le sujet (sur une seule ligne)   
                                        collapse=", "),       #     ... en séparant les éléments par ", "
            year=min(year),                                   #     ... et l'année comme minimum des années de sortie   
            .groups="drop")                                   # Dégroupe

knitr::kable(head(lf_c))

lf_m =lf_c %>% 
  transform_wikidata_coords("coords") %>% 
  mutate(popup=glue::glue("<h1>{filmLabel}<a href={film} target='_blank'>🔗</a></h1>
                           <li>Lieu: {locLabel}</li>
                           <li>Année de sortie: {year}</li>")) %>% 
  mutate(popup=case_when(is.na(image)~popup,
                         !is.na(image)~glue::glue("{popup}
                                                  <img src='{image}' height='200'>"))) %>% 
  mutate(popup=case_when(is.na(subjectLabel)~popup,
                         !is.na(subjectLabel)~glue::glue("{popup}
                                                         <li>Thèmes: {subjectLabel}</li>")))

spq_init() %>%
  spq_add("?item wdt:P31 wd:Q13442814") %>%                  # ?item est une instance d'article scientifique
  spq_add("?item rdfs:label ?itemTitle") %>%                 # ?item a pour titre ?itemTitle
  spq_filter("contains(lcase(?itemTitle),'wikidata')") %>%   # <= ce titre contient (en minuscules) "wikidata"
  spq_filter("lang(?itemTitle)='en'") %>%                    # <= on filtre pour ne garder que les titres en anglais
  spq_head(n=5) %>%
  send() %>% 
  knitr::kable()

spq_init() %>%
 spq_add("?film wdt:P31 wd:Q11424", label="?film") %>%   # ?film est un instance de film
 spq_add("?film wdt:P577 ?date") %>%                     # ?film est sorti à la date ?date
 spq_mutate(c("?year"="year(?date)")) %>%                # <= ajoute variable ?year correspondant à l'année de la date
 spq_head(5) %>% 
 send() %>% 
 knitr::kable()

spq_init() %>%
 spq_add("?film wdt:P31 wd:Q11424", label="?film") %>%   # ?film est une instance de film
 spq_add("?film wdt:P577 ?date") %>%                     # ?film est sorti à la date ?date
 spq_mutate(c("?year"="year(?date)")) %>%                # ?year est l'année correspondant à ?date
 spq_select("-?date") %>%                                # <= on retire la variable ?date
 spq_head(5) %>% 
 send() %>% 
 knitr::kable()

spq_init() %>%
  spq_add("?pers wdt:P31 wd:Q5",label="?pers") %>%        # ?pers est une instance de personne
  spq_add("?pers wdt:P19/wdt:P131* wd:Q60") %>%           # qui est née ou est située à New-York
  spq_add("?pers wikibase:sitelinks ?sitelinks") %>%      # ?personne fait l'objet de n liens dans le projet Wikimedia
  spq_arrange(c("desc(?sitelinks)")) %>%                  # <= classe par ordre décroissant de n
  spq_head(n=5) %>%
  send() %>% 
  knitr::kable()

tib=spq_init() %>%
  spq_add("?com wdt:P31 wd:Q21869758") %>%          # ?com est une instance de commune disparue
  spq_add("?com wdt:P131* wd:Q18338206") %>%        # ?com est située dans un
  spq_add("?com wdt:P131* ?dep", label="?dep") %>% 
  spq_add("?dep wdt:P31 wd:Q6465") %>% 
  spq_group_by(c("?dep", "?depLabel")) %>% 
  spq_summarise(c("?ncomsup"="count(?com)")) %>%
  send()

tib=spq_init()%>% 
  spq_add("?person rdfs:label 'David Bowie'@en")  %>% 
  spq_add("?person dbo:birthPlace ?place") %>% 
  send("dbpedia")

knitr::kable(tib)

tib=spq_init() %>% 
  spq_add("?person dbo:birthPlace ?place") %>% 
  spq_add("?person dbo:profession ?job") %>% 
  spq_add("?job rdfs:label ?jobLabel") %>% 
  spq_filter(c("LANG(?jobLabel)='en'")) %>% 
  spq_add("?place rdfs:label 'Lyon'@en") %>% 
  spq_head(10) %>% 
  send("dbpedia")

knitr::kable(tib)

query_doc=spq_init() %>% 
  spq_add("haldoc:inria-00362381 dcterms:hasVersion ?version") %>% # Ce doc a des versions ?version
  spq_add("?version dcterms:title ?title") %>%                     # ?version a pour titre ?titre
  spq_add(". dcterms:creator ?creator") %>%                        # ...... et pour créateur ?creator
  spq_add(". ore:aggregates ?pdf") %>%                             # ...... et ce lien vers un ?pdf
  spq_add("?creator hal:person ?person") %>%                       # ?creator est une personne ?person
  spq_add("?person foaf:name ?name")                               # ?person a pour nom ?name

tib_doc=send(query_doc,"hal")

tib_doc

tib=spq_init() %>% 
  spq_add("?tyro rdfs:label ?TyRoLabel") %>% 
  spq_add("?tyin rdfs:label ?TyInLabel") %>% 
  spq_add("?s ?p syr:Actr56241") %>% 
  spq_add(". sym:isComponentOf ?info") %>% 
  spq_add(". sym:hasRoleType ?tyro") %>% 
  spq_add("?info sym:knowledgeUnitStandardLabel ?infoStandardLabel") %>% 
  spq_add(". sym:knowledgeUnitStandardDate ?infoStandardDate") %>% 
  spq_add(". sym:hasKnowledgeUnitType ?tyin") %>% 
  spq_arrange("?infoStandardDate") %>% 
  spq_head(n=10) %>% 
  send(e="SyMoGIH")

knitr::kable(tib)

query_doc=spq_init() %>% 
  spq_add("haldoc:inria-00362381 dcterms:hasVersion ?version") %>% # Ce doc a des versions ?version
  spq_add("?version dcterms:title ?title") %>%                     # ?version a pour titre ?titre
  spq_add(". dcterms:creator ?creator") %>%                        # ...... et pour créateur ?creator
  spq_add(". ore:aggregates ?pdf") %>%                             # ...... et ce lien vers un ?pdf
  spq_add("?creator hal:person ?person") %>%                       # ?creator est une personne ?person
  spq_add("?person foaf:name ?name")     

query_doc %>% build_sparql() %>% cat()

tib_doc=send(query_doc,"hal")
tib_doc=send(query_doc,"http://sparql.archives-ouvertes.fr/sparql")

usual_prefixes

usual_endpoints

people=spq_init() %>%
  spq_add("?louis16 is wd:Q7732") %>%
  spq_add("?louis16 (wdt:P22*/wdt:P25*) ?who", label="?who") %>%
  spq_select("-?louis16") %>%
  spq_language("fr") %>%
  send()%>%
  mutate(num=1:n())

list_people=people %>%
  clean_wikidata_table() %>%
  pull(who)

links=spq_init() %>%
  spq_add("?person %in% {list_people}") %>%
  spq_add("?person wdt:P22 ?p_father") %>%
  spq_add("?person wdt:P25 ?p_mother", label="?p_mother") %>% 
  spq_language("fr") %>%
  send() 

list_people=bind_rows(people,
                      links %>%
                        select(who=p_mother,whoLabel=p_motherLabel))


links=links %>%
  select(person,p_father,p_mother) %>% 
  tidyr::pivot_longer(cols=starts_with("p_"), 
                      names_to="which_parent",
                      values_to="parent")




linknew=links %>% 
  left_join(people %>%
              select(who,num_person=num),
            by=c("person"="who")) %>% 
  left_join(people %>% 
              select(who,num_parent=num),
            by=c("parent"="who"))

library(tidygraph)
library(ggraph)
tib_g=tidygraph::tbl_graph(nodes=people,
                           edges=linksnew) 
tib_g %>% ggraph(layout="sugiyama")